0 POKE 53280,7:POKE 53281,7
1 REM COMMODARES PROBLEM #29-1:
2 REM     PRINT MAKER
3 REM SOLUTION BY
4 REM    DAN BRUMBAUGH
5 REM
10 INPUT"[147]ENTER LINE NUMBER";LN$:PRINT"[147]-[157]";
20 GET A$:IF A$="" THEN 20
30 A=ASC(A$) : IF A=34 THEN 20
40 IF A=13 OR LEN(S$)=71-LEN(LN$)THEN 60
50 PRINT" [157]"A$"-[157]";:S$=S$+A$:GOTO 20
60 Q$=CHR$(34):PRINT"[147]"LN$" PRINT"Q$"[147]"S$Q$""
70 KBF=631 : NDX=198 :REM ASSUME C-64
80 IF DS$<>"" THEN KBF=842 : NDX=208    :REM MUST HAVE C-128 INSTEAD
90 POKE KBF,13 : POKE NDX,1 : END